#!/usr/bin/perl
use English;

open (FILE,"test") or die "test nicht vorhanden";
while ($a = <FILE>) {
        $a =~ s/(\w+)\s+(\w+)/\2-\1/;
        print $a;
}
close (FILE);
